home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / screenblanker / swazblanker26 / moduledemo < prev    next >
Text File  |  1995-03-09  |  2KB  |  94 lines
  1. /* This script demos the SwazBlanker modules, running each for a while.
  2.    By Osma Ahvenlampi <oahvenla@snakemail.hut.fi> */
  3.  
  4. /* Try to start the server task if not running */
  5.  
  6. if ~show('L','rexxsupport.library') then
  7.     if ~addlib('rexxsupport.library',0,-30,0) then do
  8.         say 'rexxsupport.library not found! Aborting...'
  9.         exit 20
  10.     end
  11.  
  12. if ~show('P','SWAZBLANKER') then do
  13.     say 'SwazBlanker not running!'
  14.     say 'Attempting to start it...'
  15.     address command
  16.     'Run >NIL: SwazBlanker >NIL:'
  17.     'WaitForPort SWAZBLANKER'
  18.     if rc = 5 then do
  19.         say 'Unable to run SwazBlanker!'
  20.         exit 20
  21.     end
  22. end
  23.  
  24. blankers.1.name = 'Alerts'
  25. blankers.1.description = 'This module flashes alert messages.'
  26. blankers.1.delay = 10
  27. blankers.2.name = 'Dimmer'
  28. blankers.3.name = 'Gravity'
  29. blankers.4.name = 'Headlines'
  30. blankers.5.name = 'Labrynth'
  31. blankers.6.name = 'Lines'
  32. blankers.7.name = 'Melt'
  33. blankers.8.name = 'Mig'
  34. blankers.9.name = 'Pattern'
  35. blankers.10.name = 'Plazma'
  36. blankers.11.name = 'Pyro'
  37. blankers.12.name = 'Quotes'
  38. blankers.13.name = 'Rainfall'
  39. blankers.14.name = 'Shuffle'
  40. blankers.15.name = 'Skyline'
  41. blankers.16.name = 'Spliner'
  42. blankers.17.name = 'Stars'
  43. blankers.18.name = 'Swarmer'
  44. blankers.19.name = 'Toasters'
  45. blankers.20.name = 'Worms'
  46.  
  47. /* ok, now we can start the demo */
  48.  
  49. address 'SWAZBLANKER'
  50.  
  51. 'BLANKMOUSE'
  52. say 'SwazBlanker module demo'
  53. say '  This demo shows you all the SwazBlanker modules one by one.'
  54. say '  Just sit back and relax!'
  55. call delay( 25 )
  56.  
  57. /* SwazBlanker ARexx commands:
  58.    QUIT removes BlankerServer
  59.    SHOW displays the configuration GUI
  60.    HIDE hides the GUI
  61.    DISABLE disables SwazBlanker (see the Commodities Exchange)
  62.    ENABLE enables it
  63.    BLANK blanks with the preferred method
  64.    BLANKRANDOM chooses a random module for blanking
  65.    BLANKNORMAL blanks with a plain black screen
  66.    BLANK chooses a specific blanker module
  67.    UNBLANK stops blanking
  68.    BLANKMOUSE blanks the mouse pointer
  69. */
  70.  
  71. i = 1
  72. do while blankers.i.name ~= 'BLANKERS.'i'.NAME'
  73.     say blankers.i.name
  74.     if blankers.i.description = 'BLANKERS.'i'.DESCRIPTION' then
  75.         blankers.i.description = 'No description given.'
  76.     if blankers.i.delay = 'BLANKERS.'i'.DELAY' then
  77.         blankers.i.delay = 10
  78.     say '  ' || blankers.i.description
  79.     call delay( 50 )
  80.     'BLANK' blankers.i.name
  81.     call delay( blankers.i.delay * 50 )
  82.     'UNBLANK'
  83.     i = i + 1
  84. end
  85.  
  86. say 'All done!'
  87. say 'You have seen all the BlankerServer modules.'
  88. say 'Configure BlankerServer to suit your preferences now.'
  89. call delay( 50 )
  90. 'SHOW'
  91.  
  92. EXIT 0
  93.  
  94.